#!/usr/bin/env perl

use warnings;
use strict;
$ENV{"DALE_TEST_ARGS"} ||= "";
my $test_dir = $ENV{"DALE_TEST_DIR"} || ".";
$ENV{PATH} .= ":.";

use Data::Dumper;
use Test::More tests => 1;

my @res = `dalec $ENV{"DALE_TEST_ARGS"} $test_dir/t/src/eval-macro-call.dt -o eval-macro-call  `;
chomp for @res;
is_deeply(\@res, ['(b)', '123', '(c)', '123', '(d)', '123', '123', '123'],
          'Got expected results');
`rm eval-macro-call`;

1;
